home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
WINDOWS
/
MSWLOG12.ARJ
/
TOWERCNT.LG
< prev
next >
Wrap
Text File
|
1990-06-11
|
230b
|
8 lines
to towercnt :tn
!
! Called by HANOI. Returns the current number of disks on tower :tn,
! as stored in the globals tower1, tower2, and tower3.
!
if :tn = 1 [output :tower1] [if :tn = 2 [output :tower2] [output :tower3]]
end